home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / mac / files / ID99MENU.DIR / 00012.ls < prev    next >
Encoding:
Text File  |  1999-04-29  |  927 b   |  36 lines
  1. global tickrate, oldticks, rollvolume, jurorspeaking, globalidvolume
  2.  
  3. on exitFrame
  4.   t = the ticks
  5.   tickrate = min(40, max(2, (((t - oldticks) * 3) + tickrate) / 2))
  6.   oldticks = t
  7.   if the shiftDown then
  8.     set the volume of sound 2 to rollvolume
  9.   else
  10.     set the volume of sound 2 to min(50, rollvolume)
  11.   end if
  12.   rollvolume = 0
  13.   if soundBusy(4) then
  14.     v4 = the volume of sound 4
  15.     if v4 <> globalidvolume then
  16.       set the volume of sound 4 to globalidvolume
  17.     end if
  18.   else
  19.     jurorspeaking = 0
  20.   end if
  21.   if soundBusy(1) then
  22.     v1 = the volume of sound 1
  23.     v4 = the volume of sound 4
  24.     if soundBusy(4) then
  25.       if v1 <> (globalidvolume * 0.29999999999999999) then
  26.         set the volume of sound 1 to globalidvolume * 0.29999999999999999
  27.       end if
  28.     else
  29.       if v1 <> globalidvolume then
  30.         set the volume of sound 1 to globalidvolume
  31.       end if
  32.     end if
  33.   end if
  34.   go(the frame)
  35. end
  36.